10 POKE53280,1:POKE53281,1:POKE646,2
20 LL=22:IFPEEK(44)=8THENLL=40
40 P1=LL/2-6:PRINTCHR$(14):P2=P1+LL+3
50 PRINT"[147]"TAB(LL*5.5-5)"[209][213][197][211][212][201][207][206][211]![145][145][145][157][157][157][157][157][157][157][157][157][157][157][157]";
52 FORI=1TO15:PRINT"*";:GOSUB1300:NEXT:FORI=1TO10:PRINT"[157]*";:GOSUB1300:NEXT
54 FORI=1TO15:PRINT"[157][157]*";:GOSUB1300:NEXT:FORI=1TO10:PRINT"[157][145]*";:GOSUB1300:NEXT
56 PRINT"A SELF-TEST[157][157][157][157][157][157][157][157][157]PROGRAM":GOSUB1200:GOSUB1200
90 GOSUB505
100 PRINT"[147]"TAB(P1)"*** [205][197][206][213][146] ***":PRINTTAB(P1)"[157][212][146]EST
105 [153][163]P1)"CMDSTR$WAITRILL":[153][163]P1)"CMD(null)WAITOAD NEW PROGRAM
107 PRINTTAB(P1)"[157][211]ELECT ONE
110 [141]1000
112 [139]X$[178]"D"[167][141]200:[137]100
114 [139]X$[178]"T"[167][141]300:[137]100
116 [139]X$[178]"L"[167][141]500:[137]100
120 [137]110
199 [143] DRILL SUBROUTINE
200 WR[178]0:S[178]N:[129]I[178]1[164]N:RN%(I)[178]I:[130]
205 RD[178][181]([187](X)[172]S)[170]1:F[178]0:R[178]RN%(RD)
215 [153]"LOAD#"R[163]LL[171]10)"WAIT(null)O GO"S:[153][163]LL[171]10)"(null)RONG"WR
220 [153][163]P2)"STR$(null)RIGHT$(null)(null)":[153]Q$(R,1):[153]""
225 [141]400:[139]AN$[178]"\"[167][142]
230 [139]AN$[178]""[167]255
235 [139]C[178]1[175]F[178]0[167][141]1100:[129]I[178]RD[164]S:RN%(I)[178]RN%(I[170]1):[130]:S[178]S[171]1:[137]260
240 [139]C[178]1[167][141]1100:[137]260
245 [139]F[178]0[167]F[178]1:[153]"(null)RONG -":[153]"(null)RY AGAIN":WR[178]WR[170]1:[137]247
246 [137]250
247 [141]1200:[137]215
250 [153]"(null)RONG AGAIN -
255 GOSUB485
260 IFS>0THEN205
295 PRINT"[147]"TAB(P1+3)"[196][210][201][204][204]":PRINT"[212]HE DRILL HAD A TOTAL OF "N"QUESTIONS."
296 PRINTTAB(P1)"[215]RONG:"WR"":GOSUB1400:RETURN
299 REM TEST SUBROUTINE
300 WR=0:RT=0:R=1
310 PRINT"[147]#"RTAB(LL-10)"[146][210]IGHT"RT:PRINTTAB(LL-10)"[215]RONG"WR
320 PRINTTAB(P2)"[212][197][211][212]":PRINTQ$(R,1)""
325 GOSUB400:IFAN$="\"THENRETURN
330 IFC=1THENGOSUB1100:RT=RT+1:GOTO340
335 WR=WR+1:GOSUB480
340 IFR<NTHENR=R+1:GOTO310
345 PRINT"[147]"TAB(P1+3)"[212][197][211][212]":PRINT"[212]HE TEST HAD A TOTAL  OF"N" QUESTIONS."
350 PRINTTAB(P1)"[157][212]OTAL RIGHT:"RT:PRINTTAB(P1)"[157][212]OTAL WRONG:"WR
355 PRINTTAB(P1-3)"[212]HIS IS"INT(RT/N*100)"% RIGHT"
360 D=INT((RT/N-.5)*13.9):IFD<1THEND=1
365 RESTORE:FORI=1TOD:READF$:NEXT:PRINTTAB(P1+LL)F$"!":GOSUB1400:RETURN
380 DATA"[212][197][210][210][201][194][204][197]","[206][207][212] [199][207][207][196]","[193][214][197][210][193][199][197]","[214][197][210][217][160][199][207][207][196]","[197][216][195][197][204][204][197][206][212]","[207][213][212][211][212][193][206][196][201][206][199]"
400 POKE198,0:AN$="":INPUTAN$:LE=LEN(Q$(R,2))
410 K=LE+1:FORI=1TOLE:IFMID$(Q$(R,2),I,1)="\"THENK=I:I=LE
430 NEXT:C=0:IFLEFT$(AN$,K-1)=LEFT$(Q$(R,2),K-1)THENC=1
440 RETURN
480 PRINTTAB(P1)"[215]RONG -"
485 PRINT"[195]ORRECT ANSWER IS":PRINTLEFT$(Q$(R,2),K-1)" "MID$(Q$(R,2),K+1)
486 GOSUB1400:RETURN
499 REM LOAD SUBROUTINE
500 PRINT"[147][204]OAD NEW PROGRAM.":PRINT"[193]RE YOU SURE?  ([217]/[206])":GOSUB1000
502 IFX$<>"Y"THENRETURN
505 PRINT"[147]"TAB(P1)"*** [204][207][193][196][146] ***
510 [153]"PROGRAM NAME":[133]NF$
520 [153]"RIGHT$NSERT QUESTION FILE DISK. (null)RESS ANY KEYWHEN READY":[141]1000
530 [159]2,8,2,"0:"[170]NF$[170]",S,R"
540 [132]2,N
550 [151]49,[194](47):[151]50,[194](48):[134]Q$(N,2):[134]RN%(N[170]1):N[178]1
560 [132]2,Q$(N,1),Q$(N,2):[139]ST[178]0[167]N[178]N[170]1:[137]560
570 [160]2:[153]"ASCILE "NF$:[153]"LOADED WITH"N:[153]"ENTRIES":[141]1400
575 [142]
999 [143] MISCELLANEOUS SUBROUTINES
1000 [151]198,0
1001 [161]X$:[139]X$[178]""[167]1001
1010 [142]
1100 [153][163]P1)"** LEN(null)(null)(null)VALLEN(null) **
1200 FORT=1TO1000:NEXT:RETURN
1300 FORL=1TO30:NEXT:RETURN
1400 PRINTTAB(P1)"[208]RESS ANY KEY.":GOTO1000